home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / ARCHIE / ARCHIE.ZIP / ARCHIE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-05-15  |  3KB  |  172 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Date     DATE001
  25.     Integer  INTEGER001
  26.     Integer  INTEGER002
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Cls
  38.     INTEGER002 = 0
  39.     BOOLEAN003 = 0
  40.     BOOLEAN004 = 0
  41.     PrintLn "@X0FARCHIE by Email - Version .20b"
  42.     PrintLn "Nick's World BBS - Home of NicksWare!"
  43.     PrintLn "Written by Nicholas Schiano 5/1/95"
  44.     PrintLn "Your Name and BBS Name Here if registered!"
  45.     PrintLn 
  46.     PrintLn "THIS PRODUCT IS UNREGISTERED, PLEASE ASK YOUR SYSOP TO REGISTER IT!"
  47.     Wait
  48.     FOpen 1, PPEPath() + "ARCHIE.CFG", 0, 0
  49.     FGet 1, INTEGER001
  50.     FClose 1
  51.     PrintLn 
  52.     PrintLn "@X0FPlease enter the following information for the filenames you wish to"
  53.     PrintLn "search for.@X07"
  54.     :LABEL001
  55.     If (BOOLEAN003) Goto LABEL002
  56.     Input "Enter the string to search for", STRING001
  57.     If (STRING001 == "") Then
  58.         PrintLn 
  59.         PrintLn "Please enter a search string!"
  60.         PrintLn 
  61.         INTEGER002 = INTEGER002 + 1
  62.         If (INTEGER002 >= 4) Then
  63.             PrintLn "too many trys - aborting!!!!"
  64.             BOOLEAN003 = 1
  65.             BOOLEAN004 = 1
  66.         Endif
  67.     Else
  68.         BOOLEAN003 = 1
  69.     Endif
  70.     Goto LABEL001
  71.     :LABEL002
  72.     STRING007 = "Y"
  73.     If (BOOLEAN004) Goto LABEL003
  74.     BOOLEAN005 = 1
  75.     PrintLn 
  76.     Print "Creating ARCHIE request...."
  77.     STRING006 = PPEPath() + "ATEMP" + String(PcbNode()) + ".TMP"
  78.     FCreate 1, STRING006, 1, 3
  79.     STRING002 = U_Name()
  80.     STRING004 = "archie@archie.rutgers.edu"
  81.     STRING003 = " "
  82.     STRING005 = "R"
  83.     BOOLEAN001 = 0
  84.     BOOLEAN002 = 1
  85.     DATE001 = Date() + 3
  86.     If (BOOLEAN005) Then
  87.         FPutLn 1, "set search sub"
  88.     Else
  89.         FPutLn 1, "set search exact"
  90.     Endif
  91.     FPutLn 1, "find ", STRING001
  92.     FPutLn 1, "quit"
  93.     FClose 1
  94.     PrintLn "Done!"
  95.     STRING007 = "Y"
  96.     InputYN "Do you want to send this request (Y/N)", STRING007, 15
  97.     If (STRING007 == "Y") Then
  98.         PrintLn 
  99.         PrintLn "Request sent!"
  100.         Message INTEGER001, STRING004, STRING002, STRING003, STRING005, DATE001, BOOLEAN001, BOOLEAN002, STRING006
  101.     Else
  102.         PrintLn 
  103.         PrintLn "Request Aborted!"
  104.     Endif
  105.     :LABEL003
  106.     PrintLn 
  107.     PrintLn "Returning back to BBS"
  108.     Wait
  109.     PrintLn 
  110.     PrintLn "THIS PRODUCT IS UNREGISTERED, PLEASE ASK YOUR SYSOP TO REGISTER IT!"
  111.     Wait
  112.     PrintLn "@X8FSHAREWAER DELAY IS 20 SECONDS...REGISTRATION REMOVES THIS DELAY AND ADDS"
  113.     PrintLn "GREAT FEATURES TO THE PRODUCT..........@X07"
  114.     Delay (20 * 182) / 10
  115.     End
  116.  
  117. ;------------------------------------------------------------------------------
  118. ;
  119. ; Usage report (before postprocessing)
  120. ;
  121. ; ■ Statements used :
  122. ;
  123. ;    1       End
  124. ;    1       Cls
  125. ;    3       Wait
  126. ;    10      Goto 
  127. ;    18      Let 
  128. ;    1       Print 
  129. ;    25      PrintLn 
  130. ;    6       If 
  131. ;    1       Input 
  132. ;    1       FCreate 
  133. ;    1       FOpen 
  134. ;    2       FClose 
  135. ;    1       FGet 
  136. ;    4       FPutLn 
  137. ;    1       InputYN 
  138. ;    1       Delay 
  139. ;    1       Message 
  140. ;
  141. ;
  142. ; ■ Functions used :
  143. ;
  144. ;    1       *
  145. ;    1       /
  146. ;    6       +
  147. ;    2       ==
  148. ;    1       >=
  149. ;    6       !
  150. ;    1       Date()
  151. ;    1       U_Name()
  152. ;    1       String()
  153. ;    2       PPEPath()
  154. ;    1       PcbNode()
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Analysis flags : No flag
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Postprocessing report
  163. ;
  164. ;    0       For/Next
  165. ;    0       While/EndWhile
  166. ;    4       If/Then or If/Then/Else
  167. ;    0       Select Case
  168. ;
  169. ;------------------------------------------------------------------------------
  170. ;                 AEGiS Corp - Break the routines, code against the machines!
  171. ;------------------------------------------------------------------------------
  172.